-------------------------------------------------------------------------------
      name:  <unnamed>
       log:  /Users/nagler/Dropbox/EconvoteDrop/Replication_APR2017/figure1_cod
> e.log
  log type:  text
 opened on:  10 Mar 2017, 14:03:39

. #delimit ;
delimiter now ;
. set more off ;

. *************************************************************************;
. *  File-Name:   figure1_code.do                                         *;
. *  Date Run:    Nov 7, 2016                                             *;
. *               March 9, 2017 - Rerun for Replication Dataset           *;
. *  Author:      JN/SL                                                   *;
. *  Purpose:     Produce Figure 1 of Linn and Nagler, APR 2017           *;
. *                                                                       *;
. *  Data In:     econdata_2013_geoW_D.dta                                *;
. *  Out File:    figure1_code.log                                        *;
. *  Data Out:    none                                                    *;
. *  Graphs:      QuintFamMeansNoTitle_mono.pdf                           *;
. *               QuintFamMeansNoTitle_Dv2.pdf                            *;
. *                                                                       *;
. * Prev File: :  describe_econdata_2012_D_Graphs_v4.do                   *;
. * Machine:      nagler-imac                                             *;
. * Status:       Replication Code                                        *;
. *************************************************************************;
. *************************************************************************;
. * Read in all the family income data                                    *;
. *************************************************************************;
. * use ~/Dropbox/EconvoteDrop/Data/Make_econ_quintiles/econdata_2013_geoW_D.dt
> a *;
. use econdata_2013_geoW_D_REP.dta;

. tsset qdate;
        time variable:  qdate, 1947q1 to 2012q4
                delta:  1 quarter

. summ;

    Variable |        Obs        Mean    Std. Dev.       Min        Max
-------------+---------------------------------------------------------
        year |        264      1979.5    19.08655       1947       2012
         qrt |        265     2.50566    1.121825          1          4
       qdate |        264        79.5    76.35444        -52        211
   famq1mean |         66     14572.9    3540.478   6769.575      18829
   famq2mean |         66    33958.06    7333.062   17901.76      43052
-------------+---------------------------------------------------------
   famq3mean |         66    51843.59    12796.25   26025.25      68042
   famq4mean |         66    73705.27    20798.17   35352.23     101748
   famq5mean |         66    138170.2    48080.94   64235.75     213399
share_q1_est |         66    .0475857    .0056152   .0375023   .0571008
share_q2_est |         66    .1116748    .0110912    .092184       .127
-------------+---------------------------------------------------------
share_q3_est |         66    .1685219    .0098797   .1506838       .181
share_q4_est |         66    .2367362    .0048621   .2274217   .2461823
share_q5_est |         66     .436176    .0289013       .404    .489019

. describe, fullnames;

Contains data from econdata_2013_geoW_D_REP.dta
  obs:           265                          
 vars:            13                          10 Mar 2017 13:33
 size:        13,250                          
-------------------------------------------------------------------------------
              storage   display    value
variable name   type    format     label      variable label
-------------------------------------------------------------------------------
year            int     %8.0g                 
qrt             float   %8.0g                 
qdate           float   %tq                   
famq1mean       float   %9.0g                 Mean Family Income of Quintile -
                                                Splice Census and share-mult
famq2mean       float   %9.0g                 Mean Family Income of Quintile -
                                                Splice Census and share-mult
famq3mean       float   %9.0g                 Mean Family Income of Quintile -
                                                Splice Census and share-mult
famq4mean       float   %9.0g                 Mean Family Income of Quintile -
                                                Splice Census and share-mult
famq5mean       float   %9.0g                 Mean Family Income of Quintile -
                                                Splice Census and share-mult
share_q1_est    float   %9.0g                 Share to q1 - computed by JN/SL
                                                from Census quint mean and agg
                                                mean
share_q2_est    float   %9.0g                 Share to q2 - computed by JN/SL
                                                from Census quint mean and agg
                                                mean
share_q3_est    float   %9.0g                 Share to q3 - computed by JN/SL
                                                from Census quint mean and agg
                                                mean
share_q4_est    float   %9.0g                 Share to q4 - computed by JN/SL
                                                from Census quint mean and agg
                                                mean
share_q5_est    float   %9.0g                 Share to q5 - computed by JN/SL
                                                from Census quint mean and agg
                                                mean
-------------------------------------------------------------------------------
Sorted by: qdate

. *************************************************************************;
. * Some simple line graphs to illustrate the correlations                *;
. * of income of different quintiles.                                     *;
. * This produces Figure 1 from Linn and Nagler, APR 2017                 *;
. *************************************************************************;
. **Repeat previous graph without titles for tex file     *;
. **AND, mono rather than color                           *;
. twoway (tsline famq1mean famq2mean famq3mean
>         famq4mean famq5mean, lpattern(solid dash dot dash_dot longdash)), 
>         title() ttitle(Year)
>         subtitle() 
>         legend(order(1 "Bottom Quintile" 2 "Second Quintile" 3 "Third Quintil
> e" 4 "Fourth Quintile" 5 "Top Quintile"))
>         ytitle(2012 Dollars) name(QuintFamMeanNoTitle, replace)
>         scheme(s1mono);

.         graph export "QuintFamMeanNoTitle_Dv2.pdf", replace;
(file QuintFamMeanNoTitle_Dv2.pdf written in PDF format)

. log close;
      name:  <unnamed>
       log:  /Users/nagler/Dropbox/EconvoteDrop/Replication_APR2017/figure1_cod
> e.log
  log type:  text
 closed on:  10 Mar 2017, 14:03:39
-------------------------------------------------------------------------------
